home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_pcdp / ada / tup.ada < prev    next >
Text File  |  1996-01-30  |  480b  |  15 lines
  1. with Tuple_Defs; use Tuple_Defs;
  2. package Tuple_Package is
  3.  
  4.   function  In_Tuple  (T: Tuples) return Tuples;
  5.   function  Read_Tuple(T: Tuples) return Tuples;
  6.   procedure Out_Tuple (T: Tuples);
  7.  
  8.   function  In_Tuple  (T1, T2, T3, T4: Tuple_Element := Null_Element) 
  9.      return Tuples;
  10.   function  Read_Tuple(T1, T2, T3, T4: Tuple_Element := Null_Element) 
  11.      return Tuples;
  12.   procedure Out_Tuple (T1, T2, T3, T4: Tuple_Element := Null_Element);
  13.  
  14. end Tuple_Package;
  15.